← Index
NYTProf Performance Profile   
For ../prof.pl
  Run on Thu Dec 15 15:23:56 2022
Reported on Thu Dec 15 15:27:03 2022

Filename(eval 303)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm:3]
StatementsExecuted 103042 statements in 85.2ms
Eval Invoked At/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm line 3
Sibling evals1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112
Subroutines
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
255621161.8ms63.2msJSON::Schema::Modern::Document::::_assert__path_to_resource JSON::Schema::Modern::Document::_assert__path_to_resource
1117µs39µsJSON::Schema::Modern::Document::::BEGIN@7.143 JSON::Schema::Modern::Document::BEGIN@7.143
1115µs5µsMethod::Generate::Accessor::_Generated::::BEGIN@12.144Method::Generate::Accessor::_Generated::BEGIN@12.144
1112µs11µsMethod::Generate::Accessor::_Generated::::BEGIN@24.145Method::Generate::Accessor::_Generated::BEGIN@24.145
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments		 Time
on line		 Calls Time
in subs		 Code
1{
221µs my $isa_check_for__5fpath_5fto_5fresource = ${$_[1]->{"\$isa_check_for__5fpath_5fto_5fresource"}};
310s my $_QUOTED = ${$_[1]->{"\$_QUOTED"}};
410s my $default_for__5fpath_5fto_5fresource = ${$_[1]->{"\$default_for__5fpath_5fto_5fresource"}};
511µs my $_UNQUOTED = ${$_[1]->{"\$_UNQUOTED"}};
6 package JSON::Schema::Modern::Document;
7234µs271µs
# spent 39µs (7+32) within JSON::Schema::Modern::Document::BEGIN@7.143 which was called: # once (7µs+32µs) by Sub::Quote::_clean_eval at line 7
no warnings 'closure';
# spent 39µs making 1 call to JSON::Schema::Modern::Document::BEGIN@7.143 # spent 32µs making 1 call to warnings::unimport
8
# spent 63.2ms (61.8+1.38) within JSON::Schema::Modern::Document::_assert__path_to_resource which was called 25562 times, avg 2µs/call: # 25562 times (61.8ms+1.38ms) by JSON::Schema::Modern::Document::path_to_resource at line 17 of (eval 302)[Sub/Quote.pm:3], avg 2µs/call
sub _assert__path_to_resource {
9 ($_QUOTED,$_UNQUOTED) if 0;
10# BEGIN quote_sub PRELUDE
11package Method::Generate::Accessor::_Generated;
12
# spent 5µs within Method::Generate::Accessor::_Generated::BEGIN@12.144 which was called: # once (5µs+0s) by Sub::Quote::_clean_eval at line 17
BEGIN {
1310s $^H = 2018;
1411µs ${^WARNING_BITS} = "UUUUUUUUUUUUUUUUUUUU";
1512µs %^H = (
16 );
17151µs15µs}
# spent 5µs making 1 call to Method::Generate::Accessor::_Generated::BEGIN@12.144
18# END quote_sub PRELUDE
192556249.5msdo {
20 my $val = exists $_[0]->{"_path_to_resource"} ?
21$_[0]->{"_path_to_resource"}
222556221.8ms: do {
231258µs12341µs my $value = $default_for__5fpath_5fto_5fresource->($_[0]);
# spent 341µs making 12 calls to JSON::Schema::Modern::Document::__ANON__[/Users/ether/git/JSON-Schema-Modern/lib/JSON/Schema/Modern/Document.pm:90], avg 28µs/call
24758967µs2961.06ms
# spent 11µs (2+9) within Method::Generate::Accessor::_Generated::BEGIN@24.145 which was called: # once (2µs+9µs) by Sub::Quote::_clean_eval at line 24
do { no warnings "void"; package Type::Tiny; (do { package Type::Tiny; (Ref::Util::XS::is_plain_hashref($value)) and do { my $ok = 1; for my $i (values %{$value}) { ($ok = 0, last) unless do { package Type::Tiny; (Ref::Util::XS::is_plain_hashref($i)) and (not grep {my $v = ($i)->{$_};not((/\A(?:canonical_uri|path|specification_version|vocabularies|configs)\z/) or (((!!1)) and ((!defined($v)))))} keys %{$i}) and exists($i->{"canonical_uri"}) and do { package Type::Tiny; Scalar::Util::blessed($i->{"canonical_uri"}) and $i->{"canonical_uri"}->isa(q[Mojo::URL]) } and exists($i->{"path"}) and do { package Type::Tiny; defined($i->{"path"}) and do { ref(\$i->{"path"}) eq 'SCALAR' or ref(\(my $val = $i->{"path"})) eq 'SCALAR' } } and exists($i->{"specification_version"}) and do { package Type::Tiny; defined($i->{"specification_version"}) and do { ref(\$i->{"specification_version"}) eq 'SCALAR' or ref(\(my $val = $i->{"specification_version"})) eq 'SCALAR' } } and exists($i->{"vocabularies"}) and (do { package Type::Tiny; Ref::Util::XS::is_plain_arrayref($i->{"vocabularies"}) } and do { my $ok = 1; for my $i (@{$i->{"vocabularies"}}) { ($ok = 0, last) unless ((do { package Type::Tiny; Types::Standard::_is_class_loaded(do { my $tmp = $i }) }) && (do { local $_ = $i; $_->DOES('JSON::Schema::Modern::Vocabulary') })) }; $ok }) and exists($i->{"configs"}) and do { package Type::Tiny; Ref::Util::XS::is_plain_hashref($i->{"configs"}) } } }; $ok } }) or Type::Tiny::_failed_check($isa_check_for__5fpath_5fto_5fresource, "HashRef[Dict[canonical_uri=>InstanceOf[\"Mojo::URL\"],configs=>HashRef,path=>Str,specification_version=>Str,vocabularies=>ArrayRef[__ANON__],Slurpy[HashRef[Undef]]]]", $value, "attribute_name","_path_to_resource","attribute_step","isa check","mgaca","0","varname","\$self->{\"_path_to_resource\"}"); $value };
# spent 278µs making 98 calls to Types::Standard::__ANON__[(eval 46)[Types/Standard.pm:48]:16], avg 3µs/call # spent 174µs making 14 calls to JSON::Schema::Modern::Vocabulary::Core::DOES, avg 12µs/call # spent 118µs making 14 calls to JSON::Schema::Modern::Vocabulary::Applicator::DOES, avg 8µs/call # spent 101µs making 14 calls to JSON::Schema::Modern::Vocabulary::MetaData::DOES, avg 7µs/call # spent 86µs making 14 calls to JSON::Schema::Modern::Vocabulary::Validation::DOES, avg 6µs/call # spent 72µs making 14 calls to JSON::Schema::Modern::Vocabulary::FormatAnnotation::DOES, avg 5µs/call # spent 69µs making 14 calls to JSON::Schema::Modern::Vocabulary::Content::DOES, avg 5µs/call # spent 65µs making 14 calls to JSON::Schema::Modern::Vocabulary::Unevaluated::DOES, avg 5µs/call # spent 54µs making 70 calls to Type::Tiny::CORE:match, avg 771ns/call # spent 14µs making 14 calls to UNIVERSAL::isa, avg 1µs/call # spent 11µs making 1 call to Method::Generate::Accessor::_Generated::BEGIN@24.145 # spent 9µs making 14 calls to Scalar::Util::blessed, avg 643ns/call # spent 9µs making 1 call to warnings::unimport
25125µs $_[0]->{"_path_to_resource"} = $value
26 }
27;
28255626.65ms exists $_[0]->{"_path_to_resource"}
29 or Carp::croak(q{Attempted to access '}."_path_to_resource".q{' but it is not set});
30255626.07ms $val;
31}
32 }
3310s $$_UNQUOTED = \&_assert__path_to_resource;
34}
3514µs1;
36
37;
Report produced by the NYTProf 6.12 Perl profiler, developed by Tim Bunce based on work by Adam Kaplan and Salvador Fandiño García.